<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.04</name>
<id>-1</id>
<cardCount>2</cardCount>
<cardID>2671</cardID>
<listID>2846</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>--—————————————————————————————————————————————————————————————————————-- Here we intercept all the standard messages sent by chiclette.-- Intercept these messages somewhere in the hierarchical path,-- or modify the scripts here, in order to make your palette work.-- (or set the MDmess, MSDmess and / or MUmess properties of the-- script of its buttons.) MW , ME, ML added for 1.04 - geo-- If these messages, sent by chiclette, were not intercept,-- nothing would happen.-- We intercept them here, to be able to verify the syntax of these scripts-- by typing theses messages in the message box, without getting-- the error message : "Can't understand…"-- (when a script error occurs in a script called by an eXternal,-- the script just aborts, no errormessage is sent. When you suspect-- a script called by an eXternal, call it from the message box,-- HyperCard will tell you of any problem of syntax.)--——————————————-- MD, MSD, MU ,MW ,ME ,ML :-- messages sent on mouseDown, mouseStillDown and mouseUp-- somewhere inside the chic palette.-- WindName : name of the palette-- btnName : name of the button (or empty if outside the buttons)-- btnNum : number of the button (or empty if outside the buttons)On MD WindName,btnName,btnNumend MDOn MSD WindName,btnName,btnNumend MSDOn MU WindName,btnName,btnNumend MUon MW WindName,btnName,btnNumend MWon ME WindName,btnName,btnNumend MEon ML WindName,btnName,btnNumend ML--——————————————-- openChiclette, closeChiclette :-- WindName : name of the palette-- windId : if you are running HC 2.1 or later, the Id of the window-- in HC 2.0, useless parameterOn openChiclette WindName,windId-- RQ : windname is the first line of the windows-- (it is the uppermost window)end openChicletteOn closeChiclette WindName,windId-- eventually set the look of the chiclette editor :if there is a window "Chiclette Editor" thenif WindName = Btn1Name of window "Chiclette Editor" thenif WindName ≠ "Chiclette Editor" theninitEditorend ifend ifend ifend closeChiclette--—————————————————————————————————————————————————————————————————————function PalToDef windName-- returns the definition of the opened palette windName, or ""set cursor to busycheckopenedPalette windNamereturn definition of window windName -- "definition", or "def"end PalToDef--—————————————————————————————————————————————————————————————————————-- PALETTE "Chiclette Editor"on ChicEdit windName-- open the "Chiclette Editor" to edit the palette windName-- windName can be empty (no preselection of the palette to edit)-- if windName ≠ "", calls the handler initEditorglobal chicEditGlobif there is a window "Chiclette Editor" thenanswer "The Chiclette Editor is already opened."exit ChicEditend ifput "Chiclette Editor" into cif chicEditGlob = "" thenset cursor to watchwpush cdgo cd c of stack short name of meput fld "Definition" into chicEditGlobpop cdend ifchiclette chicEditGlob -- open the editor with default value : hidden, in stack "Chiclette", no preselectionif otherStack() thenChicEditLook false-- else default value is OK : no need to call ChicEditLookend ifif windName ≠ "" thenInitEditor windNameelseshow window "Chiclette Editor"end ifend ChicEditon chicEditLook here-- in the Chiclette stack, the only way to choose the palette to edit-- is to go to the corrsponding card.-- In others stacks, you can choose any opened chic palette to edit-- here is a boolean. True if this stack is Chiclette.put "Chiclette Editor" into cif here is true thenset Btn1MDmess of window c to "" -- name of paletteset Btn1MUmess of window c to ""set Btn1Style of window c to "rectangle"set Btn2visible of window c to false -- pulldown arrowset Btn12Name of window c to "Editing palette :"elseif the version < 2.1 thenset Btn1MUmess of window c to "AskPalName"set Btn12Name of window c to "Click to choose a palette to edit :"elseset Btn1MDmess of window c to "PopUpPalNames" -- name of paletteset Btn1Style of window c to "shadow"set Btn2visible of window c to true -- pulldown arrowset Btn12Name of window c to "Hold down to choose a palette to edit :"end ifend ifend chicEditLookon InitEditor windName-- set the look of the palette Chiclette Editor-- to edit the palette windName and show it-- windName can be empty (no preselected palette to edit)-- if windName is not a chic palette, will abort. Not too bad :-- this can happen only with HC 2.0 (with 2.1, we can-- check the owner before calling this handler)put visible of window "Chiclette Editor" into visif vis then send "LockScreen" to window "Chiclette Editor"set Btn1Name of window "Chiclette Editor" to windNameif windName = "" ¬or return & windName & return is not in return & the windows thenput -1 into nelseput numberOfBtns of window windName into n -- abort if not a chic paletteend if-- enable / disable "set properties of palette"get n < 0set Btn3Disable of window "Chiclette Editor" to itset Btn3GrayedOut of window "Chiclette Editor" to itset Btn4Disable of window "Chiclette Editor" to itset Btn4GrayedOut of window "Chiclette Editor" to it--get n ≤ 0-- number and name of edited buttonif it thenset Btn5Name of window "Chiclette Editor" to "" -- number of edited btnset Btn8Name of window "Chiclette Editor" to "" -- name of edited btnelseset Btn5Name of window "Chiclette Editor" to "1"set Btn8Name of window "Chiclette Editor" to Btn1Name of window windNameend if-- enable / disable "set properties of btn"set Btn9Disable of window "Chiclette Editor" to it -- "set properties of bvtn"set Btn9GrayedOut of window "Chiclette Editor" to itset Btn10Disable of window "Chiclette Editor" to itset Btn10GrayedOut of window "Chiclette Editor" to itset Btn11GrayedOut of window "Chiclette Editor" to it -- "use arrows…"-- down arrow always disable at this stageset Btn7Disable of window "Chiclette Editor" to trueset Btn7GrayedOut of window "Chiclette Editor" to true-- up arrowget (n ≤ 1)set Btn6Disable of window "Chiclette Editor" to itset Btn6GrayedOut of window "Chiclette Editor" to itif not vis thenvisual effect "zoom open"go this cdshow window "Chiclette Editor"end ifend InitEditor-- HANDLERS DEFINING MDmess, MSDmess and/or MUmess OF THE BUTTONS-- OF THE PALETTE "Chiclette Editor" :on AskPalName-- Btn1MUmess of window "Chiclette Editor" in HC < 2.1 :-- choice of the palette to edit-- in HC 2.1 or later, choice "on mousedown", MDmess : PopUpPalNames-- if the version ≥ 2.1 then exit AskPalName -- choice made in PopUpPalNamesask "Enter the name of the palette to edit :"if it = "" then exit AskPalNamecheckOpenedPalette itInitEditor itend AskPalNameon PopUpPalNames-- Btn1MUmess of window "Chiclette Editor" in HC ≥ 2.1 :-- choice of the palette to editif the version < 2.1 thenanswer "This handler needs HyperCard 2.1 or later"exit PopUpPalNamesend ifset cursor to arrowput "!" & numtochar(18) into theCheckMarkput btn1Name of window "Chiclette Editor" into editedPalput "" into theMenurepeat with i = 1 to number of lines of the windowsget line i of the windowsif the owner of window it is "Chiclette" thenif it is editedPal then get theCheckMark&itput it & return after theMenuend ifend repeatif theMenu = "" thenanswer "There is no opened chic palette to edit."exit PopUpPalNamesend ifsort lines of theMenuif the mouse is "Up" then abortPopget JmHpopUp (theMenu,"",¬item 2 of rect of cd window + item 2 of the clickloc,¬item 1 of rect of cd window + item 1 of the clickloc)get line item 1 of it of theMenuif it = "" or char 1 to 2 of it = theCheckMark then exit PopUpPalNamesInitEditor itend PopUpPalNameson UpOrDown n -- n = 1 or -1-- MDmess and MSDmess of arrows of Chiclette Editor :-- choice of the button to editput Btn1Name of window "Chiclette Editor" into windNamecheckOpenedPalette windNameput Btn5Name of window "Chiclette Editor" into nbadd n to nbsend "lockScreen" to window "Chiclette Editor"set Btn5Name of window "Chiclette Editor" to nbget "get Btn" & nb &"name of window"&& Q(windName)do itset Btn8Name of window "Chiclette Editor" to itif nb = 1 thenset Btn7Disable of window "Chiclette Editor" to trueset Btn7GrayedOut of window "Chiclette Editor" to trueelse if nb = 2 thenset Btn7Disable of window "Chiclette Editor" to falseset Btn7GrayedOut of window "Chiclette Editor" to falseend ifget numberOfBtns of window windNameif it = nb thenset Btn6Disable of window "Chiclette Editor" to trueset Btn6GrayedOut of window "Chiclette Editor" to trueelse if it = nb + 1 thenset Btn6Disable of window "Chiclette Editor" to falseset Btn6GrayedOut of window "Chiclette Editor" to falseend ifsend "unLockScreen" to window "Chiclette Editor"end UpOrDown-- HANDLERS USED TO SET PROPERTIES OF THE WINDOW-- USED IN BUTTON 9 OF THE Chiclette Editor,-- AND, IN SELF EDITING MODE, ON MD INSIDE THE PALETTE, OUTSIDE THE BTNSon WinEditMenu windNamecheckopenedPalette windNameset cursor to arrowput "!" & numtochar(18) into theCheckMarkput "^1Arrow,^2Hand,^3Cross,^4Plus" into CursorListput "0,128,2,3" into cursorIdListput "Rectangle…" & return ¬ -- 1& "Window style,UnTitled" & return ¬ -- 2& "Cursor," & CursorList & return ¬ -- 3& "PICT…" & return ¬ -- 4& "Always Behind" & return ¬ -- 5& "No Close Box" & return ¬ -- 6& "Hidden" into theMenu -- 7get ProcId of window windnameif it = "2052" thenput theCheckMark before item 2 of line 2 of theMenuend ifget cursor of window windnameput "" into nrepeat with i = 1 to number of items of cursorIdListif it = item i of cursorIdList thenput i into nexit repeatend ifend repeatif n ≠ "" then put theCheckMark before item n+1 of line 3 of theMenuif AlwaysBehind of window windname then put theCheckMark before line 5 of theMenuif not (CloseBox of window windname) then put theCheckMark before line 6 of theMenuif not visible of window windname then put theCheckMark before line 7 of theMenuif the mouse is "Up" then abortPopget JmHpopUp (theMenu,"",¬item 2 of rect of cd window + item 2 of the clickloc,¬item 1 of rect of cd window + item 1 of the clickloc)put it into resput item 1 of it into nput line n of theMenu into theLineif theLine = "" then exit WinEditMenuput item 1 of theLine into propertyNameput "" into theSetPptMessif propertyName is "Rectangle…" thenput "Rect" into propertyNameask "Enter new rect :" with rect of window windNameif it = "" then exit to hyperCardput Q(it) into propertyValueelse if propertyName contains "Window Style" thenif theLine contains theCheckMark then -- bofSetWinPpt windName,"ProcId",2054elseSetWinPpt windName,"ProcId",2052end ifexit winEditMenuelse if propertyName = "Cursor" thenput item (item 2 of res) -1 of cursorIdList into propertyValueelse if propertyName = "PICT…" thenput "PICT" into propertyNameask "Enter id of the PICT resource" with PICT of window windnameif the result = "Cancel" then exit to hypercardif it = "" thenput 0 into propertyValueelseput it into propertyValueend ifelse if propertyName contains "Always behind" thenput (char 1 to 2 of propertyName ≠ theCheckMark) into propertyValueput "AlwaysBehind" into propertyNameelse if propertyName contains "No close box" thenput (char 1 to 2 of propertyName = theCheckMark) into propertyValueput "CloseBox" into propertyNameelse if propertyName contains "Hidden" thenif char 1 to 2 of propertyName = theCheckMark thenput "show window"&&Q(windName) into theSetPptMesselseput "hide window"&&Q(windName) into theSetPptMessend ifelse if propertyName is "Name…" thenput "Name" into propertyNameask "Enter new name :" with windNameif it = "" then exit to hyperCardput Q(it) into propertyValueif there is a window "Chiclette Editor" thenset Btn1Name of window "Chiclette Editor" to itend ifend ifif theSetPptMess = "" thenput "set" && propertyName && "of window" && Q(windName) && "to" ¬&& propertyValue into theSetPptMessend ifif putmessages() then put "--"&&theSetPptMessdo theSetPptMessend WinEditMenuon SetWinPpt windName,PropertyName,PropertyValue-- There is a property that Chiclette cannot set : the ProcId-- This handler sets such a property.-- It must :-- 1) save the definition of the palette-- 2) change this definition-- 3) close the window-- 4) open the palette with the new definition-- By convention,-- a PropertyValue iqual to "•" means default value of the propertyif putmessages() then put "--"&&PropertyName&&"cannot be set : must close window and call Chiclette again."set cursor to busy-- 1) save the definition of the paletteput def of window windName into windef-- 2) change this definitionput line 1 of windef into xget offset("•"&PropertyName,"•"&x)if it = 0 thenif PropertyValue ≠ "•" thenput "•"&PropertyName&":"&PropertyValue after xend ifelseput char 1 to it-2 of x into ydelete char 1 to it-1 of xget offset("•",x)if it ≠ 0 then delete char 1 to it-1 of xif PropertyValue ≠ "•" thenput y & "•"&PropertyName&":"&PropertyValue before xelseput y before xend ifend ifput x into line 1 of windef-- 3) close the window-- we doesn't want to propose to save change :-- see handler CloseChiclette in the bg of stack "chiclette"global NoSaveput true into NoSaveclose window windname-- 4) open the palette with the new definition-- we doesn't want to check if there are several windows with same name-- global theLockMessChic-- put true into theLockMessChicChiclette windef-- put false into theLockMessChicend SetWinPpt-- HANDLERS USED BY THE PULL DOWN MENU INTERFACE-- IN SETTING PROPERTIES OF BUTTONS OF A PALETTE.-- THESE HANDLERS ARE USED :-- - BY THE BTN 2 of the palette "Chiclette Editor"-- - IN "SELF EDITING MODE" (see handler "on MD" of background "palette")On BtnEditMenu windName,btnNumglobal theBtnMenucheckopenedPalette windNameset cursor to arrowif theBtnMenu = "" then loadBtnMenuput theBtnMenu into BtnEditMenuput "!" & numtochar(18) into theCheckMarkif the mouse is "Up" then abortPopdo "get Btn"&btnNum&"ShowName of window windName"if it then put theCheckMark before line 5 of BtnEditMenudo "get Btn"&btnNum&"AutoHilite of window windName"if it then put theCheckMark before line 6 of BtnEditMenudo "get Btn"&btnNum&"Hilite of window windName"if it then put theCheckMark before line 7 of BtnEditMenudo "get Btn"&btnNum&"GrayedOut of window windName"if it then put theCheckMark before line 8 of BtnEditMenudo "get Btn"&btnNum&"Style of window windName"get offset(","&it,BtnEditMenu)if it ≠ 0 then put theCheckMark after char it of BtnEditMenuif the mouse is "Up" then abortPopdo "get Btn"&btnNum&"Visible of window windName"if it then put theCheckMark before line 10 of BtnEditMenudo "get Btn"&btnNum&"TextFont of window windName"get offset(","&it,BtnEditMenu)if it ≠ 0 then put theCheckMark after char it of BtnEditMenuput "Plain,Bold,Italic,Underline,Outline,Shadow,Condense,Extend"¬into USlistdo "get Btn"&btnNum&"TextStyle of window windName"put it into xrepeat with i = 1 to number of items of USlistif item i of USlist is in x then ¬put theCheckMark before item i+1 of line 13 of BtnEditMenuend repeatif the mouse is "Up" then abortPopdo "get Btn"&btnNum&"TextSize of window windName"get offset(","&it,BtnEditMenu)if it ≠ 0 thenput theCheckMark after char it of BtnEditMenuelseput theCheckMark before last item of line 14 of BtnEditMenuend ifdo "get Btn"&btnNum&"TextAlign of window windName"if it = "Left" then get 2else if it = "Center" then get 3else get 4put theCheckMark before item it of line 15 of BtnEditMenudo "get Btn"&btnNum&"MDmess of window windName"if it ≠ "" then put theCheckMark before item 2 of line 17 of BtnEditMenudo "get Btn"&btnNum&"MSDmess of window windName"if it ≠ "" then put theCheckMark before item 3 of line 17 of BtnEditMenudo "get Btn"&btnNum&"MUmess of window windName"if it ≠ "" then put theCheckMark before item 4 of line 17 of BtnEditMenudo "get Btn"&btnNum&"Disable of window windName"if it then put theCheckMark before line 18 of BtnEditMenuif the mouse is "Up" then abortPop-- HERE IS CALLED THE PULLDOWN MENU :get JmHpopUp (BtnEditMenu,"",¬item 2 of rect of cd window + item 2 of the clickloc,¬item 1 of rect of cd window + item 1 of the clickloc)if line item 1 of it of BtnEditMenu = "" then exit BtnEditMenuput item 2 of it into chooitemif chooitem = 1 then -- no submenuget line (item 1 of it) of BtnEditMenuif char 1 to 2 of it = theCheckMark then -- a boolean property that was true (not checked)delete char 1 to 2 of itget "set Btn"&btnNum&it&&"of window"&&Q(windName)&&"to false"elseif last char of it = "…" then -- …: option.delete last char of itput it into PropertyNamedo "get Btn"&btnNum&PropertyName && "of window windName"ask "Enter" && PropertyName && "of button" && btnNum with itif the result = "Cancel" then exit BtnEditMenuif PropertyName = "Name" thenif there is a window "Chiclette Editor" thenset Btn8Name of window "Chiclette Editor" to itend if-- in HC2.0, the value has to be quoted if 2 or more words-- doesn't need in HC2.1get "set Btn"&btnNum&PropertyName&&"of window"&&Q(windName)&&"to" && Q(it)else if PropertyName = "Rectangle" then-- in HC2.0, the value has to be quoted-- doesn't need in HC2.1get "set Btn"&btnNum&PropertyName&&"of window"&&Q(windName)&&"to" && Q(it)elseget "set Btn"&btnNum&PropertyName&&"of window"&&Q(windName)&&"to" && itend ifelse -- it is a boolean property that was false (not checked)get "set Btn"&btnNum&it&&"of window"&&Q(windName)&&"to true"end ifend ifelse -- choice in a submenuput item chooitem of line (item 1 of it) of BtnEditMenu into zput item 1 of line (item 1 of it) of BtnEditMenu into y -- a property name, or "script"if y contains "Script" thendelete last char of z -- …put z into PropertyNameif char 1 to 2 of z = theCheckMark then-- mess already defineddelete char 1 to 2 of PropertyNamedo "get Btn"&btnNum&PropertyName && "of window windName"elseget ""end ifask "Enter" && PropertyName && "of button" && btnNum with itif the result = "Cancel" then exit BtnEditMenu-- In HC2.0, the value has to be quoted, (not in HC2.1)if it contains quote thenput it into ScriptValueget "set Btn"&btnNum&PropertyName &&"of window"&&Q(windName)&&"to ScriptValue"else-- if it = "" then get Q(it) -- empty has to be quoted also in HC2.1get "set Btn"&btnNum&PropertyName &&"of window"&&Q(windName)&&"to" && Q(it)end ifelseif char 1 to 2 of z = theCheckMark then delete char 1 to 2 of zif y = "TextStyle" thenput item chooitem-1 of USlist into zif z = "Plain" thenget "set Btn"&btnNum&y &&"of window"&&Q(windName)&&"to" && zelsedo "get Btn"&btnNum&y &&"of window windName"if it = "Plain" thenget zelseput "" into xrepeat with i = 1 to number of items of itif item i of it = z thendelete item i of itput "-" into xexit repeatend ifend repeatif x = "" then get it & "," & zget quote & it & quoteend ifget "set Btn"&btnNum&y &&"of window"&&Q(windName)&&"to" && itend ifelse if y = "TextFont" thenget "set Btn"&btnNum&y &&"of window"&&Q(windName)&&"to" && Q(z) -- in HC2.0, has to be quotedelseif y = "TextSize" thenif z is not a number thendo "get Btn"&btnNum&y &&"of window windName"ask "Enter"&&y&&"of button"&&btnNum with itif the result = "Cancel" then exit to hyperCardif it = "" or it is not a number then exit to hyperCardput it into zend ifend ifget "set Btn"&btnNum&y &&"of window"&&Q(windName)&&"to" && zend ifend ifend ifif putMessages() then put "--"&&itdo itget the resultif it ≠ "" then answer itend BtnEditMenuon loadBtnMenuglobal theBtnMenuput "Name…" & return ¬ -- 1& "-" & return ¬ -- 2& "Rectangle…" & return ¬ -- 3& "Icon…" & return ¬ -- 4& "ShowName" & return ¬ -- 5& "AutoHilite" & return ¬ -- 6& "Hilite" & return ¬ -- 7& "GrayedOut" & return ¬ -- 8& "Style,Transparent,Opaque,Rectangle,Shadow,RoundRect," ¬ -- 9& "CheckBox,RadioButton" & return ¬& "Visible" & return ¬ -- 10& "-" ¬ -- 11into theBtnMenuput menu "font" into xget "TextFont"repeat with i = 1 to number of lines of xput ","&line i of x after itend repeatput return & it after theBtnMenu -- 12put menu "Style" into xput last line of x into othersget offset("-",x)put char 1 to it-2 of x into x1delete char 1 to it + 2 of xget offset("-",x)put char 1 to it-2 of x into xget "TextStyle"repeat with i = 1 to number of lines of x1 - 1 -- no "Group" styleput ","&line i of x1 after itend repeatput return & it after theBtnMenu -- 13get "TextSize"repeat with i = 1 to number of lines of xput ","&line i of x after itend repeatput ","&others after itput return & it after theBtnMenu -- 14put return & "TextAlign,Left,Center,Right" ¬ -- 15& return & "-" ¬ -- 16& return & "Script,MDmess…,MSDmess…,MUmess…" ¬ -- 17& return & "Disable" ¬ -- 18after theBtnMenuend loadBtnMenuon checkOpenedPalette windName-- checks if awindow windName is opened.-- in HC 2.1, verifies also that it is a chic palette.-- Exit to hyperCard if notif there is not a window windName thenanswer "Please open the chic palette"&&Q(windName)&&"first."exit to hyperCardend ifif the version ≥ 2.1 thenif owner of window windName ≠ "Chiclette" thenanswer "The uppermost window"&&windName&&"is not a chic palette."exit to hyperCardend ifend ifend checkOpenedPalettefunction putMessagesif not otherStack() thenif there is a bg btn "Put messages" thenreturn hilite of bg btn "Put Messages"end ifend ifreturn falseend putMessages-- UTILITIESfunction Q x-- quotes a stringreturn quote&x"eend Qon wset cursor to watchlock screenset lockmessages to trueend wfunction otherStackreturn (value of word 2 of long name of me ≠ line 1 of the stacks)end otherStackon abortPopanswer "Hold down longer to see the menu"exit to hypercardend abortPopon wnranswer "Wait for next release" with "Sorry"exit to hypercardend wnron stopif the version < 2.1 then pass stopif the params = "stop using" && long name of me and otherstack() thencleanupend ifpass stopend stopon cleanupglobal chicEditGlob,theBtnMenu,theLockMessChic,NoSaveif there is a window "Chiclette Editor" then close window "Chiclette Editor"put "" into chicEditGlobput "" into theBtnMenuput "" into theLockMessChicput "" into NoSaveend cleanup</script>
